home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Dynamic Bu22180742001.psc / Classes / clsIcon.cls next >
Encoding:
Visual Basic class definition  |  2001-07-03  |  2.2 KB  |  69 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsIcon"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15.  
  16. 'local variable(s) to hold property value(s)
  17. Private mvarParentIndex As Integer 'local copy
  18. Private mvarLocalIndex As Integer 'local copy
  19. Private mvarIconCaption As String
  20. Private mvarIcon As Picture 'local copy
  21.  
  22. Public Property Let ParentIndex(ByVal vData As Integer)
  23. 'used when assigning a value to the property, on the left side of an assignment.
  24. 'Syntax: X.Target = 5
  25.     mvarParentIndex = vData
  26. End Property
  27.  
  28. Public Property Get ParentIndex() As Integer
  29. 'used when retrieving value of a property, on the right side of an assignment.
  30. 'Syntax: Debug.Print X.Target
  31.     ParentIndex = mvarParentIndex
  32. End Property
  33.  
  34. Public Property Let LocalIndex(ByVal vData As Integer)
  35. 'used when assigning a value to the property, on the left side of an assignment.
  36. 'Syntax: X.Source = 5
  37.     mvarLocalIndex = vData
  38. End Property
  39.  
  40. Public Property Get LocalIndex() As Integer
  41. 'used when retrieving value of a property, on the right side of an assignment.
  42. 'Syntax: Debug.Print X.Source
  43.     LocalIndex = mvarLocalIndex
  44. End Property
  45.  
  46. Public Property Let IconCaption(ByVal vData As String)
  47. 'used when assigning a value to the property, on the left side of an assignment.
  48. 'Syntax: X.Source = 5
  49.     mvarIconCaption = vData
  50. End Property
  51.  
  52. Public Property Get IconCaption() As String
  53. 'used when retrieving value of a property, on the right side of an assignment.
  54. 'Syntax: Debug.Print X.Source
  55.     IconCaption = mvarIconCaption
  56. End Property
  57.  
  58. Public Property Let Icon(ByVal vData As Picture)
  59. 'used when assigning a value to the property, on the left side of an assignment.
  60. 'Syntax: X.Source = 5
  61.     Set mvarIcon = vData
  62. End Property
  63.  
  64. Public Property Get Icon() As Picture
  65. 'used when retrieving value of a property, on the right side of an assignment.
  66. 'Syntax: Debug.Print X.Source
  67.     Set Icon = mvarIcon
  68. End Property
  69.